home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / radiosky / r7100.bas < prev    next >
BASIC Source File  |  1996-05-24  |  1KB  |  21 lines
  1. 1 'The following simple BASIC program gives a continuous screen printout of
  2. 2 'the AGC level of the R7100 receiver, using the CI-V bus. There is no error
  3. 3 'or collision checking, but it shows how simple the software can be and may
  4. 4 'provide a template for your own more sophisticated data-logging program.
  5. 5 'If you write your own program, for the R7100 or any other receiver that
  6. 6 'supports this interface, it is essential to obtain a copy of the Icom CI-V
  7. 7 'reference manual.
  8.  
  9.  
  10.       
  11. 10  REM DEMO PROG TO READ R7100  S-METER.  Darrel Emerson,AA7FV,NOV 94.
  12. 20  REM CHANGE LINE 100 IF NECESSARY TO MATCH R7100 CI-V PORT SPEED SETUP
  13. 100 OPEN "COM1:9600,N,8,1" FOR RANDOM AS #1
  14. 121 PRINT #1, CHR$(254); CHR$(254); CHR$(52); CHR$(224); CHR$(21); CHR$(2); CHR$(253);
  15. 122 FOR I = 1 TO 7: A$ = INPUT$(1, 1): NEXT
  16. 123 FOR I = 1 TO 7: A$ = INPUT$(1, 1): NEXT: PRINT ASC(A$);
  17. 124 A = ASC(INPUT$(1, 1)): PRINT INT(A / 16); : PRINT A - 16 * INT(A / 16):
  18. 125 A$ = INPUT$(1, 1)
  19. 129 GOTO 121
  20.  
  21.